IF MajorVer% < 3 OR (MajorVer% = 3 AND MinorVer% < 10) THEN
i% = DoMsgBox("Microsoft Windows version 3.10 or greater is required for this software. Please upgrade your version of Windows.", "Installation Problem", MB_OK+MB_TASKMODAL+MB_ICONHAND)
END
END IF
IF OnWindowsNT() THEN
i% = DoMsgBox("This software does not run on Windows NT.", "Installation Problem", MB_OK+MB_TASKMODAL+MB_ICONHAND)
CreateProgmanGroup "The Encyclopedia of Christmas", "", cmoNone
ShowProgmanGroup "The Encyclopedia of Christmas", 1, cmoNone
' Icons in group are below.
NoIcon$ = ""
Icon$ = DEST$ + "\xmas.ico, , 1, 1," + DEST$
IF Audio = 8 THEN
CreateProgmanItem "The Encyclopedia of Christmas", "The Encyclopedia of Christmas", DEST$ + "\SST.exe " + SrcDir$ + "XMAS\8CMAS2X.Car", Icon$, cmoOverwrite
CreateProgmanItem "The Encyclopedia of Christmas", "Read Me 1ST", "Write.exe " + Dest$ + "\ReadMe.wri", NoIcon$, cmoOverwrite
ENDIF
IF Audio = 16 THEN
IF CDSpeed = 2 THEN
CreateProgmanItem "The Encyclopedia of Christmas", "The Encyclopedia of Christmas", DEST$ + "\SST.exe " + SrcDir$ + "XMAS\16CMAS2X.Car", Icon$, cmoOverwrite
CreateProgmanItem "The Encyclopedia of Christmas", "Read Me 1ST", "Write.exe " + Dest$+"\ReadMe.wri", NoIcon$, cmoOverwrite
ELSE
CreateProgmanItem "The Encyclopedia of Christmas", "The Encyclopedia of Christmas", DEST$ + "\SST.exe " + SrcDir$ + "XMAS\16CMAS4X.Car", Icon$, cmoOverwrite
CreateProgmanItem "The Encyclopedia of Christmas", "Read Me 1ST", "Write.exe " + Dest$+"\ReadMe.wri", NoIcon$, cmoOverwrite
ENDIF
ENDIF
IF CopyVFWFiles = -1 THEN
Run ("profdisp.exe")
END IF
END SUB
'**
'** Purpose:
'** Appends a file name to the end of a directory path,
'** inserting a backslash character as needed.
'** Arguments:
'** szDir$ - full directory path (with optional ending "\")